home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / A-Newest / TORPET.d64 / file convert.i (.txt) < prev    next >
Commodore BASIC  |  2009-10-12  |  2KB  |  40 lines
  1. 8 PRINTCHR$(14):PRINT"[147]       [212][197][216][212]-TO-[194][193][211][201][195][160]CONVERSION"
  2. 9 PRINT"[212]HIS PROGRAM TAKES A DISK FILE OF [194][193][211][201][195]"
  3. 10 PRINT"STATEMENTS IN TEXT FORM, AND CONVERTS"
  4. 11 PRINT"IT INTO [195][194][205] INTERNAL (TOKENIZED) FORM   READY TO BE RUN."
  5. 12 PRINT"[212]HIS WAY, PROGRAMS MAY BE TRANSFERRED"
  6. 13 PRINT"FROM OTHER MACHINES, WHICH MAY USE A"
  7. 14 PRINT"DIFFERENT INTERNAL FORM."
  8. 15 PRINT"[193]LSO, IF YOU HAVE A GOOD TEXT EDITOR,"
  9. 16 PRINT"IT MAY BE USED TO DO EXTENSIVE EDITS "
  10. 17 PRINT"OF BASIC PROGRAMS - BY [204][201][211][212]ING THE"
  11. 18 PRINT"PROGRAM TO A DISK FILE, EDITING AS TEXT"
  12. 19 PRINT"AND THEN RESTORING TO [195][194][205] INTERNAL FORM"
  13. 20 PRINT"     ...[200]IT ANY KEY TO CONTINUE...":POKE198,0:WAIT198,1
  14. 21 PRINT"[147][193] MACHINE-LANGUAGE ROUTINE IS [204][207][193][196]ED"
  15. 22 PRINT"TO DO THE WORK.  [201]T READS A [211][197][209][160]FILE TO"
  16. 23 PRINT"[210][193][205] (ABOVE ANY CURRENTLY LOADED [194][193][211][201][195]"
  17. 24 PRINT"PROGRAM, PLACES EACH STATEMENT ON THE"
  18. 25 PRINT"SCREEN, AND SIMULATES [210][197][212][213][210][206].  [212]HIS IS"
  19. 26 PRINT"THE TECHNIQUE DESCRIBED IN THE [206]OV/[196]EC"
  20. 27 PRINT"[212][207][210][208][197][212] - EXCEPT THAT THE FILE IS READ"
  21. 28 PRINT"ONLY ONCE, AND THE CONVERT PROGRAM"
  22. 29 PRINT"DOES NOT BECOME PART OF THE END PRODUCT"
  23. 30 PRINT"[201]F THE ROUTINE IS USED WHILE A [194][193][211][201][195]"
  24. 31 PRINT"PROGRAM IS IN MEMORY; THE STATEMENTS"
  25. 32 PRINT"FROM THE DISK FILE ARE THEN MERGED INTO"
  26. 33 PRINT"IT.   [212]HIS COULD BE HANDY FOR USING A"
  27. 34 PRINT"SET OF STANDARD SUBROUTINES TO BUILD "
  28. 35 PRINT"PROGRAMS."
  29. 36 PRINT"[144][206][207][212][197]:[154] [201]F YOU MAKE A MISTAKE WHEN"
  30. 37 PRINT"PROMPTED FOR THE FILE NAME, THE [196][197][204]"
  31. 38 PRINT"KEY MAY BE USED TO RECOVER.  [210]ESTART"
  32. 39 PRINT"ANY TIME WITH A [211][217][211]49152 (IE. $[195]000)."
  33. 40 PRINT"[144][215]ANT TO [204][207][193][196][160]AND [210][213][206][160]THE ROUTINE?[154]"
  34. 41 POKE198,0:WAIT198,1:GETA$:REM PROMPT WITHOUT SCREEN SPARKLE.
  35. 42 IFA$="N"THEN END
  36. 43 IFA$<>"Y"THEN41
  37. 44 PRINT"[147]LOAD"CHR$(34)"FILE CONVERT"CHR$(34)",8,1"
  38. 45 PRINT"RUN"
  39. 47 POKE631,19:POKE632,13:POKE633,13:POKE634,13:POKE198,4
  40.